clear;
arr=csvread('KBT65DP1517-0820CE P2 -T0 1710.csv');
s= arr(1,2:end);
p=arr(2:end,1);
d=arr(2:end,2:end)';
clear arr;
[phi2,theta2]=meshgrid(p*pi/180,s*pi/180);

[x,y,z]=sph2cart(phi2,theta2,d);
%clear p d s;
%subplot(2,1,1);
mesh(x,y,z);
%subplot(2,1,2);
%surf(x,y,z);